home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / minix / update~3.z / update~3 / lib_fixnum.s < prev    next >
Encoding:
Text File  |  1989-09-05  |  4.7 KB  |  266 lines
  1. #
  2. # /* Subroutines needed by GCC output code on some machines.  */
  3. # /* Compile this file with the Unix C compiler!  */
  4. # 
  5. # #include "config.h"
  6. # 
  7. # union double_di { double d; int i[2]; };
  8. # union flt_or_int { int i; float f; };
  9. # 
  10. # #ifdef WORDS_BIG_ENDIAN
  11. # #define HIGH 0
  12. # #define LOW 1
  13. # #else
  14. # #define HIGH 1
  15. # #define LOW 0
  16. # #endif
  17. # 
  18. # #ifdef L_umulsi3
  19. # _umulsi3 (a, b)
  20. #      unsigned a, b;
  21. # {
  22. #   return a * b;
  23. # }
  24. # #endif
  25.  
  26. .text
  27.     .even
  28. .globl ___umulsi3
  29. .globl __umulsi3
  30. ___umulsi3:
  31. __umulsi3:
  32.     link a6,#0        | 0 bytes of local
  33.     movel d2,sp@-        | push d2
  34.     movel a6@(8),d2        | get a
  35.     beq umul_zero        | 0? return 0
  36.     movel a6@(12),d1    | get b
  37.     beq umul_zero        | 0? return 0
  38.  
  39.     mulu d1,d2        | mul bottom parts
  40.     movel d2,d0        | save that
  41.     movew a6@(8),d2        | get hi part of a
  42.     beq umul_1        | zero, skip it
  43.     movel a6@(12),d1    | get b
  44.     mulu d1,d2        | mul a hi by b lo
  45.     lsll #8,d2        | shift over
  46.     lsll #8,d2        |  ...twice...
  47.     addl d2,d0        | add that in
  48. umul_1:
  49.     clrl d1
  50.     movew a6@(12),d1    | get b hi
  51.     beq umul_ret
  52.     movel a6@(8),d2        | and a lo
  53.     mulu d1,d2        | mult those
  54.     lsll #8,d2        | shift it over
  55.     lsll #8,d2        |  ... twice...
  56.     addl d2,d0        | and add that in
  57.     bra umul_ret        | go home
  58. umul_zero:
  59.     clrl d0            | return 0
  60. umul_ret:
  61.     movel sp@+,d2        | get d2 back
  62.  
  63.     unlk a6            | flush frame
  64.     rts
  65. #
  66. # #ifdef L_mulsi3
  67. # _mulsi3 (a, b)
  68. #      int a, b;
  69. # {
  70. #   return a * b;
  71. # }
  72. # #endif
  73.  
  74. .text
  75.     .even
  76. .globl ___mulsi3
  77. .globl __mulsi3
  78. ___mulsi3:
  79. __mulsi3:
  80.     link a6,#-2        | one word of local
  81.     clrw a6@(-2)        | zap the local; it's our neg flg
  82.  
  83.     movel a6@(12),d0    | get b
  84.     bpl muls1        | pos, ok
  85.     negl d0            | negate it
  86.     addqw #1,a6@(-2)    | and inc the flag
  87. muls1:
  88.     movel d0,sp@-        | push adjusted b
  89.     movel a6@(8),d0        | get a
  90.     bpl muls2        | pos, ok
  91.     negl d0            | negate it
  92.     subqw #1,a6@(-2)    | and dec the flag
  93. muls2:
  94.     movel d0,sp@-        | push adjusted a
  95.     jbsr ___umulsi3        | do an unsigned mult
  96.     addql #8,sp        | flush args
  97.     tstw a6@(-2)        | flag set?
  98.     beq muls3        | nope, go ahead and return
  99.     negl d0            | negate the result
  100. muls3:
  101.  
  102.     unlk a6            | unlink the frame
  103.     rts            | done!
  104. #
  105. # #ifdef L_udivsi3
  106. # _udivsi3 (a, b)
  107. #      unsigned a, b;
  108. # {
  109. #   return a / b;
  110. # }
  111. # #endif
  112.  
  113. .text
  114.     .even
  115. .globl ___udivsi3
  116. .globl __udivsi3
  117. ___udivsi3:
  118. __udivsi3:
  119.     link a6,#0
  120.  
  121.     movel d2,sp@-        | check our bags
  122.     movel d3,sp@-
  123.     movel d4,sp@-
  124.  
  125.     clrl d0            | d0 will be accum
  126.     movel a6@(8),d1        | d1 is a, dividend
  127.     movel a6@(12),d2    | d2 is b, divisor
  128.     beq udiv_zero        | Woops divide by 0
  129.     movel #1,d3        | get a 1 into bit 0 of bit mask
  130.     movel #31,d4        | d4 is bit num for testing need to sub
  131. udiv_sl:
  132.  
  133.     btst d4,d2        | bit get to top yet?
  134.     bne udiv_sr        | yes, start testing for subtraction
  135.     lsll #1,d3        | shift bitnum left
  136.     lsll #1,d2        | shift divisor left
  137.     bra udiv_sl
  138. udiv_sr:
  139.     cmpl d2,d1        | divisor > dividend?
  140.     beq udiv_sub
  141.     bcs udiv_s
  142. udiv_sub:
  143.     subl d2,d1        | take divisor (shifted) out of dividend
  144.     orl d3,d0        | set this bit in d0
  145.     tstl d1            | anything left?
  146.     beq udiv_done        | nope
  147. udiv_s:
  148.     subql #1,d4        | dec bitnum (new only)
  149.     lsrl #1,d2        | shift right one
  150.     lsrl #1,d3        | and the bitnum too
  151.     bne udiv_sr        | more bits, keep dividing
  152.     bra udiv_done
  153. udiv_zero:
  154.     clrl d0            | just return 0
  155. udiv_done:
  156.     movel sp@+,d4
  157.     movel sp@+,d3        | get bags back
  158.     movel sp@+,d2
  159.  
  160.     unlk a6
  161.     rts
  162. #
  163. # #ifdef L_divsi3
  164. # _divsi3 (a, b)
  165. #      int a, b;
  166. # {
  167. #   return a / b;
  168. # }
  169. # #endif
  170.  
  171. .text
  172.     .even
  173. .globl ___divsi3
  174. .globl __divsi3
  175. ___divsi3:
  176. __divsi3:
  177.     link a6,#-2        | 2 bytes of local
  178.     clrw a6@(-2)        | zap the local; it's our neg flg
  179.  
  180.     movel a6@(12),d0    | get b
  181.     bge divs1        | pos, ok
  182.     negl d0            | negate it
  183.     addqw #1,a6@(-2)    | and inc the flag
  184. divs1:
  185.     movel d0,sp@-        | push adjusted b
  186.     movel a6@(8),d0        | get a
  187.     bge divs2        | pos, ok
  188.     negl d0            | negate it
  189.     subqw #1,a6@(-2)    | and dec the flag
  190. divs2:
  191.     movel d0,sp@-        | push adjusted a
  192.     jbsr ___udivsi3        | do an unsigned div
  193.     addql #8,sp        | flush args
  194.     tstw a6@(-2)        | flag set?
  195.     beq divs3        | nope, go ahead and return
  196.     negl d0            | negate the result
  197. divs3:
  198.  
  199.     unlk a6            | unlink the frame
  200.     rts            | done!
  201. #
  202. # #ifdef L_umodsi3
  203. # _umodsi3 (a, b)
  204. #      unsigned a, b;
  205. # {
  206. #   return a % b;
  207. # }
  208. # #endif
  209.  
  210. .text
  211.     .even
  212. .globl ___umodsi3
  213. .globl __umodsi3
  214. ___umodsi3:
  215. __umodsi3:
  216.     link a6,#-4
  217.     movl d2,sp@-
  218.     movel a6@(12),sp@-
  219.     movel a6@(8),sp@-
  220.     jbsr ___udivsi3
  221.     movel d0,d0
  222.     movel a6@(12),sp@-
  223.     movel d0,sp@-
  224.     jbsr ___mulsi3
  225.     movel d0,d2
  226.     movel a6@(8),d1
  227.     subl d2,d1
  228.     movel d1,a6@(-4)
  229.     movel a6@(-4),d0
  230.     movl a6@(-8),d2
  231.     unlk a6
  232.     rts
  233. # 
  234. # #ifdef L_modsi3
  235. # _modsi3 (a, b)
  236. #      int a, b;
  237. # {
  238. #   return a % b;
  239. # }
  240. # #endif
  241.  
  242. .text
  243.     .even
  244. .globl ___modsi3
  245. .globl __modsi3
  246. ___modsi3:
  247. __modsi3:
  248.     link a6,#-4
  249.     movl d2,sp@-
  250.     movel a6@(12),sp@-
  251.     movel a6@(8),sp@-
  252.     jbsr ___divsi3
  253.     movel d0,d0
  254.     movel a6@(12),sp@-
  255.     movel d0,sp@-
  256.     jbsr ___mulsi3
  257.     movel d0,d2
  258.     movel a6@(8),d1
  259.     subl d2,d1
  260.     movel d1,a6@(-4)
  261.     movel a6@(-4),d0
  262.     movl a6@(-8),d2
  263.     unlk a6
  264.     rts
  265.  
  266.